|
409
|
How can I display a different caption in the label area
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Style := DropDownList
oDCOCX_Exontrol1:IntegralHeight := true
oDCOCX_Exontrol1:HeaderVisible := false
oDCOCX_Exontrol1:SingleEdit := true
oDCOCX_Exontrol1:SearchColumnIndex := -1
oDCOCX_Exontrol1:AdjustSearchColumn := false
IColumn{oDCOCX_Exontrol1:Columns:Add("Language")}:[Def,exCellHasCheckBox] := true
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("English")
var_Items:AddItem("Hebrew")
var_Items:AddItem("Spanish")
oDCOCX_Exontrol1:LabelText := " <b>custom</b> text "
oDCOCX_Exontrol1:EndUpdate()
|
|
160
|
How can I display a custom size picture to a cell or item
local var_Items as IItems
oDCOCX_Exontrol1:DefaultItemHeight := 48
oDCOCX_Exontrol1:Columns:Add("C1")
var_Items := oDCOCX_Exontrol1:Items
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
var_Items:[CellPicture,var_Items:AddItem("Text"),0] := oDCOCX_Exontrol1:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
|
|
210
|
How can I display a computed column and highlight some values that are negative or less than a value
local var_ConditionalFormat as IConditionalFormat
local var_Items,var_Items1 as IItems
oDCOCX_Exontrol1:Columns:Add("A")
oDCOCX_Exontrol1:Columns:Add("B")
IColumn{oDCOCX_Exontrol1:Columns:Add("(A+B)*1.19")}:ComputedField := "(%0 + %1) * 1.19"
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellCaption,var_Items:AddItem(1),1] := 2
var_Items1 := oDCOCX_Exontrol1:Items
var_Items1:[CellCaption,var_Items1:AddItem(10),1] := 20
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("%2 > 10",nil)
var_ConditionalFormat:Bold := true
var_ConditionalFormat:ForeColor := RGB(255,0,0)
var_ConditionalFormat:ApplyTo := 0x2 |
|
|
276
|
How can I display a button inside the item or cell
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("C1")
oDCOCX_Exontrol1:Columns:Add("C2")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Cell 1")
var_Items:[CellCaption,h,1] := " Button 1 "
var_Items:[CellHAlignment,h,1] := RightAlignment
var_Items:[CellHasButton,h,1] := true
h := var_Items:AddItem("Cell 2")
var_Items:[CellCaption,h,1] := " Button 2 "
var_Items:[CellHAlignment,h,1] := CenterAlignment
var_Items:[CellHasButton,h,1] := true
|
|
203
|
How can I customize the items being displayed in the drop down filter window
local var_Column as IColumn
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Custom Filter")}
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := false
var_Column:CustomFilter := "Excel Spreadsheets (*.xls )||*.xls|||Word Documents||*.doc|||Powerpoint Presentations||*.pps|||Text Documents (*.log,*.txt)||*.txt|*.log"
var_Column:FilterType := exPattern
var_Column:Filter := "*.xls"
oDCOCX_Exontrol1:Items:AddItem("excel.xls")
oDCOCX_Exontrol1:Items:AddItem("word.doc")
oDCOCX_Exontrol1:Items:AddItem("pp.pps")
oDCOCX_Exontrol1:Items:AddItem("text.txt")
oDCOCX_Exontrol1:ApplyFilter()
|
|
549
|
How can I create a new ADO recordset
local rs as _Recordset
oDCOCX_Exontrol1:BeginUpdate()
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
rs := _Recordset{"ADODB.Recordset"}
rs:Fields:Append("A",8,0,nil,nil)
rs:Fields:Append("B",8,0,nil,nil)
rs:Open(nil,nil,nil,nil,0)
rs:AddNew(nil,nil)
rs:Fields:[Item,"A"]:Value := "Item A.1"
rs:Fields:[Item,"B"]:Value := "Item B.1"
rs:Update(nil,nil)
rs:AddNew(nil,nil)
rs:Fields:[Item,"A"]:Value := "Item A.2"
rs:Fields:[Item,"B"]:Value := "Item B.2"
rs:Update(nil,nil)
oDCOCX_Exontrol1:DataSource := _Recordset{rs}
oDCOCX_Exontrol1:Value := "Item A.1"
oDCOCX_Exontrol1:EndUpdate()
|
|
372
|
How can I convert the expression to a string so I can look into the date string expression for month's name
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Number")
IColumn{oDCOCX_Exontrol1:Columns:Add("Str")}:ComputedField := "str(%0) + ' AA'"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("-1.98")
var_Items:AddItem("0.99")
var_Items:AddItem("1.23")
var_Items:AddItem("2.34")
|
|
427
|
How can I collapse all items
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Columns:Add("Items")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,0] := false
oDCOCX_Exontrol1:EndUpdate()
|
|
340
|
How can I close the drop down window when user double clicks it
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:CloseOnDblClk := true
oDCOCX_Exontrol1:LinesAtRoot := exGroupLinesAtRoot
oDCOCX_Exontrol1:TreeColumnIndex := 1
oDCOCX_Exontrol1:Columns:Add("Column 1")
oDCOCX_Exontrol1:Columns:Add("Column 2")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1.1")
var_Items:[CellCaption,h,1] := "Root 1.2"
var_Items:[CellCaption,var_Items:InsertItem(h,nil,"Child 1.1"),1] := "Child 1.2"
var_Items:[CellCaption,var_Items:InsertItem(h,nil,"Child 2.1"),1] := "Child 2.2"
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2.1")
var_Items:[CellCaption,h,1] := "Root 2.2"
var_Items:[CellCaption,var_Items:InsertItem(h,nil,"Child 1.1"),1] := "Child 1.2"
|
|
384
|
How can I check the hour part only so I know it was afternoon
local var_Items as IItems
oDCOCX_Exontrol1:ConditionalFormats:Add("hour(%0)>=12",nil):Bold := true
oDCOCX_Exontrol1:Columns:Add("Date")
IColumn{oDCOCX_Exontrol1:Columns:Add("Hour")}:ComputedField := "hour(%0)"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20010111 10:00:00"))
var_Items:AddItem(SToD("20020222 11:00:00"))
var_Items:AddItem(SToD("20030313 12:00:00"))
var_Items:AddItem(SToD("20040414 13:00:00"))
|
|
4
|
How can I change/rename the column's name
IColumn{oDCOCX_Exontrol1:Columns:Add("ColumnName")}:Caption := "NewName"
|
|
134
|
How can I change the width of the columns being displayed in the sort bar
oDCOCX_Exontrol1:SortBarVisible := true
oDCOCX_Exontrol1:SortBarColumnWidth := 48
IColumn{oDCOCX_Exontrol1:Columns:Add("C1")}:SortOrder := SortAscending
IColumn{oDCOCX_Exontrol1:Columns:Add("C2")}:SortOrder := SortDescending
|
|
510
|
How can I change the visual appearance of the filter bar's close button (solid)
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}:DisplayFilterButton := true
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos")}
var_Column:AllowSizing := false
var_Column:AllowSort := false
var_Column:Width := 32
var_Column:FormatColumn := "1 apos ``"
var_Column:Position := 0
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item A")
var_Items:AddItem("Item B")
var_Items:AddItem("Item C")
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarPromptVisible
oDCOCX_Exontrol1:[Background,exFooterFilterBarButton] := RGB(255,0,0)
oDCOCX_Exontrol1:EndUpdate()
|
|
511
|
How can I change the visual appearance of the filter bar's close button (EBN)
local var_Appearance as IAppearance
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
var_Appearance:Add(1,"gBFLBCJwBAEHhEJAAEhABHQDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLOg7IJjyI4/SJAYCydKAWhxIaZKJHCZoEDaTAADCNVAQp6MEIJVbVEI0e79OgBLp/Z7kECIJJAaRjHQdJxGLA8EhtCQhCZteK6SgMKJYXhWQYRXI1JwvMBrWrdQjiOYELQtMKmSZNLYGG4dR5SVJbcYhSYsRRFMoyDIOXYDLKsdYqSpXIThObEGgaPqJYjsUjCMKnR7HVIURrBPC9TBPE69ZgmC6ucKPX51ShKFaBWDZcwFAS+UBuYCAILiEAQGZ1XT8OROicbgJgSTJRlCaZeDsHY7QGR4xkSYp3CaExZAQMgalQYAwjCAAfBANxcA2TgKAUOpDCGFhKg0RpXCwCwDHQHQHEyAIkCkOhbFOGA8A8DohBgRg9AccZcn8EpEjMLI2C2DYxAgQgvAIUIVkoAAPBQDJlECTZ3CCYwDACQwUA8A5MCAWAWDiQi4l8aQOEgLJuBgBgDmYFAzEoIoIl0WALgKYJbBABADAAHgHg8VAMmqCQQDMXABAATYwTmNwBDATJXAiAgjHmNQ5lgQ5QEQEQMmcWg/GwD5ylyNw2gMcJcjsBgBgOQQDDhRpVAMMwnDBFw1B0Ax8D0DxOmmJJIGQTY5hGMAwkwM4CAYLZAmAOJnAqAojiIGg6iieYkmeAYOHaKJDCyCwjH6AoggsQpQliAJLhgaJ0CESBTnyDwjk+cg4g4P5IHIHJ+BWRRzlYWAxiOUxihsY4KjKLJRGqC44FCegkkkM58iAKAPnIWIWD8SRSFSfQnkmewUhYP4GiGKJ7G0TIbCSUoggqUo0lAQ4LnEcBcD8Coiiif4nE+eAAn2HpOkcFJqi4T5SkyMw/kqQown8IBIBOdA+A+DJrBqVxXEqYo4lCApLhGHBnD8S4ymyfxmg+cwQkQP5egOUZIWoEAkjIeIPBMBJBD+TBjBifwvkuc58hQJQPmFrYykkchclSApKjGOBuD+TRDFCfw3mmIxNi8FxFlOXhVC4aYDFyPgvg2YBcBcLZGCGCJ0DSLRzGSWQ/lmY5+mEP5gmMDBZRSMRsFsOxMhMJJ/DsTpTnwaQaE+N5ojuNhdEYNI5C4TZJO1GRDmCaxnA2Yx4n8IpIjOTBQBQC5TgyYw7gUYRYikC0BYRwsDQBoB8eA6Q2hsE0BUXgywZtYCyHMKwnxSAhAQHkIQhRrBaDsCwA4ERiB2EWAIYIXhhiVEgAEUYwwYjyASLge4FhHgRDkM8OQih0jWPkGgBBAQ")
IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}:DisplayFilterButton := true
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos")}
var_Column:AllowSizing := false
var_Column:AllowSort := false
var_Column:Width := 32
var_Column:FormatColumn := "1 apos ``"
var_Column:Position := 0
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item A")
var_Items:AddItem("Item B")
var_Items:AddItem("Item C")
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarToggle | exFilterBarPromptVisible
oDCOCX_Exontrol1:[Background,exFooterFilterBarButton] := 0x1000000
oDCOCX_Exontrol1:EndUpdate()
|
|
131
|
How can I change the visual appearance of the control's sort bar, using EBN files
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:VisualAppearance:Add(2,"c:\exontrol\images\pushed.ebn")
oDCOCX_Exontrol1:SortBarVisible := true
oDCOCX_Exontrol1:BackColorSortBar := 0x1000000
oDCOCX_Exontrol1:BackColorSortBarCaption := 0x2000000
oDCOCX_Exontrol1:Appearance := None2
|
|
499
|
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme (method 3)
local var_Appearance as IAppearance
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
var_Appearance:Add(3,"gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSBcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfDxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5JlgXIcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIRgwZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOMINCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA=")
var_Appearance:Add(1,"CP:3 -2 -2 2 2")
var_Appearance:Add(4,"gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSBcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfDxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCEeBkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchOFSFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQOJtDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI=")
var_Appearance:Add(2,"CP:4 -2 -2 2 2")
oDCOCX_Exontrol1:LinesAtRoot := exGroupLinesAtRoot
oDCOCX_Exontrol1:HasButtons := exCustom
oDCOCX_Exontrol1:[HasButtonsCustom,false] := 16777216
oDCOCX_Exontrol1:[HasButtonsCustom,true] := 33554432
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child")
oDCOCX_Exontrol1:EndUpdate()
|
|
498
|
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme (method 2)
local var_Appearance as IAppearance
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
var_Appearance:Add(1,"XP:TREEVIEW 2 1")
var_Appearance:Add(2,"XP:TREEVIEW 2 2")
oDCOCX_Exontrol1:[Background,exTreeGlyphOpen] := 0x1000000
oDCOCX_Exontrol1:[Background,exTreeGlyphClose] := 0x2000000
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child")
oDCOCX_Exontrol1:EndUpdate()
|
|
496
|
How can I change the visual appearance of the +/- buttons (method 1)
local var_Appearance as IAppearance
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
var_Appearance:Add(1,"gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSBcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfDxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5JlgXIcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIRgwZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOMINCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA=")
var_Appearance:Add(2,"gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSBcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfDxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCEeBkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchOFSFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQOJtDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI=")
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:[Background,exTreeGlyphOpen] := 0x1000000
oDCOCX_Exontrol1:[Background,exTreeGlyphClose] := 0x2000000
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child")
oDCOCX_Exontrol1:EndUpdate()
|
|
275
|
How can I change the state of a radio button
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SelBackColor := RGB(255,255,128)
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
oDCOCX_Exontrol1:Columns:Add("C1")
oDCOCX_Exontrol1:Columns:Add("C2")
oDCOCX_Exontrol1:Columns:Add("C3")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Cell 1")
var_Items:[CellCaption,h,1] := "Radio 1"
var_Items:[CellHasRadioButton,h,1] := true
var_Items:[CellRadioGroup,h,1] := 1234
var_Items:[CellCaption,h,2] := "Radio 2"
var_Items:[CellHasRadioButton,h,2] := true
var_Items:[CellRadioGroup,h,2] := 1234
var_Items:[CellState,h,1] := 1
|
|
273
|
How can I change the state of a checkbox
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("C1")
oDCOCX_Exontrol1:Columns:Add("C2")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Cell 1")
var_Items:[CellCaption,h,1] := "Check Box"
var_Items:[CellHasCheckBox,h,1] := true
var_Items:[CellState,h,1] := 1
|
|
132
|
How can I change the sort bar's foreground color
oDCOCX_Exontrol1:SortBarVisible := true
oDCOCX_Exontrol1:ForeColorSortBar := RGB(255,0,0)
|
|
130
|
How can I change the sort bar's background color
oDCOCX_Exontrol1:SortBarVisible := true
oDCOCX_Exontrol1:BackColorSortBar := RGB(255,0,0)
oDCOCX_Exontrol1:BackColorSortBarCaption := RGB(128,0,0)
|
|
289
|
How can I change the size ( width, height ) of the picture
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
var_Items:[CellPicture,h,0] := oDCOCX_Exontrol1:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
var_Items:[CellPictureWidth,h,0] := 24
var_Items:[CellPictureHeight,h,0] := 24
var_Items:[ItemHeight,h] := 32
h := var_Items:AddItem("Root 2")
var_Items:[CellPicture,h,0] := oDCOCX_Exontrol1:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
var_Items:[ItemHeight,h] := 48
|
|
32
|
How can I change the position of the column
oDCOCX_Exontrol1:Columns:Add("Column 1")
IColumn{oDCOCX_Exontrol1:Columns:Add("Column 2")}:Position := 0
|
|
298
|
How can I change the position of an item
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item 1")
var_Items:AddItem("Item 2")
var_Items:[ItemPosition,var_Items:AddItem("Item 3")] := 0
|
|
202
|
How can I change the order or the position of the columns in the sort bar
oDCOCX_Exontrol1:SortBarVisible := true
oDCOCX_Exontrol1:SortBarColumnWidth := 48
IColumn{oDCOCX_Exontrol1:Columns:Add("C1")}:SortOrder := SortAscending
IColumn{oDCOCX_Exontrol1:Columns:Add("C2")}:SortOrder := SortDescending
oDCOCX_Exontrol1:Columns:[Item,"C2"]:SortPosition := 0
|
|
48
|
How can I change the name of the week days in the drop down calendar window, being displayed when I filter items between dates
local var_Column as IColumn
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Column")}
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterDate := true
oDCOCX_Exontrol1:[Description,exFilterBarDateWeekDays] := "Du Lu Ma Mi Jo Vi Si"
oDCOCX_Exontrol1:ApplyFilter()
|
|
47
|
How can I change the name of the months in the drop down calendar window, being displayed when I filter items between dates
local var_Column as IColumn
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Column")}
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterDate := true
oDCOCX_Exontrol1:[Description,exFilterBarDateMonths] := "Janvier F vrier Mars Avril Mai Juin Juillet Ao t Septembre Octobre Novembre D cembre"
oDCOCX_Exontrol1:ApplyFilter()
|
|
133
|
How can I change the height of the sort bar's
oDCOCX_Exontrol1:SortBarVisible := true
oDCOCX_Exontrol1:SortBarHeight := 48
|
|
252
|
How can I change the height for all items
oDCOCX_Exontrol1:DefaultItemHeight := 32
oDCOCX_Exontrol1:Columns:Add("Column")
oDCOCX_Exontrol1:Items:AddItem("One")
oDCOCX_Exontrol1:Items:AddItem("Two")
|
|
124
|
How can I change the header's background color, when multiple levels are displayed
oDCOCX_Exontrol1:BackColorLevelHeader := RGB(250,0,0)
IColumn{oDCOCX_Exontrol1:Columns:Add("S")}:Width := 32
IColumn{oDCOCX_Exontrol1:Columns:Add("Level 1")}:LevelKey := 1
IColumn{oDCOCX_Exontrol1:Columns:Add("Level 2")}:LevelKey := 1
IColumn{oDCOCX_Exontrol1:Columns:Add("Level 3")}:LevelKey := 1
|
|
344
|
How can I change the foreground color for edit controls
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:ForeColorEdit := RGB(255,0,0)
oDCOCX_Exontrol1:IntegralHeight := true
oDCOCX_Exontrol1:LinesAtRoot := exGroupLinesAtRoot
oDCOCX_Exontrol1:TreeColumnIndex := 1
oDCOCX_Exontrol1:Columns:Add("Column 1")
oDCOCX_Exontrol1:Columns:Add("Column 2")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1.1")
var_Items:[CellCaption,h,1] := "Root 1.2"
var_Items:[CellCaption,var_Items:InsertItem(h,nil,"Child 1.1"),1] := "Child 1.2"
var_Items:[CellCaption,var_Items:InsertItem(h,nil,"Child 2.1"),1] := "Child 2.2"
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2.1")
var_Items:[CellCaption,h,1] := "Root 2.2"
var_Items:[CellCaption,var_Items:InsertItem(h,nil,"Child 1.1"),1] := "Child 1.2"
oDCOCX_Exontrol1:[Select,0] := "Root 1.1"
|
|
215
|
How can I change the foreground color for all cells in the column
local var_ConditionalFormat as IConditionalFormat
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("1",nil)
var_ConditionalFormat:ForeColor := RGB(255,0,0)
var_ConditionalFormat:ApplyTo := exFormatToColumns
oDCOCX_Exontrol1:Columns:Add("Column")
oDCOCX_Exontrol1:Items:AddItem(0)
oDCOCX_Exontrol1:Items:AddItem(1)
|
|
424
|
How can I change the foreground color for a particular column
local var_Columns as IColumns
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Column 1")
IColumn{var_Columns:Add("Column 2")}:[Def,exHeaderForeColor] := 8439039
var_Columns:Add("Column 3")
|
|
300
|
How can I change the font for entire item
local var_Items as IItems
local f as stdFont
oDCOCX_Exontrol1:Columns:Add("Default")
oDCOCX_Exontrol1:Items:AddItem("default font")
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
f := stdFont{"StdFont"}
f:Name := "Tahoma"
f:Size := 12
var_Items := oDCOCX_Exontrol1:Items
var_Items:[ItemFont,var_Items:AddItem("new font")] := f
|
|
217
|
How can I change the font for all cells in the entire column
local var_ConditionalFormat as IConditionalFormat
local f as stdFont
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
f := stdFont{"StdFont"}
f:Name := "Tahoma"
f:Size := 12
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("1",nil)
var_ConditionalFormat:Font := f
var_ConditionalFormat:ApplyTo := exFormatToColumns
oDCOCX_Exontrol1:Columns:Add("Column")
oDCOCX_Exontrol1:Items:AddItem(0)
oDCOCX_Exontrol1:Items:AddItem(1)
|
|
302
|
How can I change the font for a cell
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Default")
oDCOCX_Exontrol1:Items:AddItem("std font")
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellCaptionFormat,var_Items:AddItem("this <font tahoma;12>is a bit of text with</font> a different font"),0] := exHTML
|
|
301
|
How can I change the font for a cell
local var_Items as IItems
local f as stdFont
oDCOCX_Exontrol1:Columns:Add("Default")
oDCOCX_Exontrol1:Items:AddItem("default font")
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
f := stdFont{"StdFont"}
f:Name := "Tahoma"
f:Size := 12
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellFont,var_Items:AddItem("new font"),0] := f
|
|
129
|
How can I change the default caption being displayed in the control's sort bar
oDCOCX_Exontrol1:SortBarVisible := true
oDCOCX_Exontrol1:SortBarCaption := "new caption"
|
|
95
|
How can I change the control's font
oDCOCX_Exontrol1:Font:Name := "Tahoma"
oDCOCX_Exontrol1:Columns:Add("Column")
|
|
13
|
How can I change the column's width
oDCOCX_Exontrol1:ColumnAutoResize := false
IColumn{oDCOCX_Exontrol1:Columns:Add("Column 1")}:Width := 64
IColumn{oDCOCX_Exontrol1:Columns:Add("Column 2")}:Width := 128
|
|
455
|
How can I change the color, font, bold etc for the items/cells in the same column or for the entire column
local var_Column as IColumn
local var_ConditionalFormat as IConditionalFormat
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:MarkSearchColumn := false
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("1",nil)
var_ConditionalFormat:Bold := true
var_ConditionalFormat:ForeColor := RGB(255,0,0)
var_ConditionalFormat:ApplyTo := 0x1 |
oDCOCX_Exontrol1:Columns:Add("C1")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("C2")}
var_Column:HeaderBold := true
var_Column:HTMLCaption := "<fgcolor=FF0000>C2"
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellCaption,var_Items:AddItem(10),1] := 11
var_Items:[CellCaption,var_Items:AddItem(12),1] := 13
oDCOCX_Exontrol1:EndUpdate()
|
|
314
|
How can I change the color for separator / dividers items
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:TreeColumnIndex := -1
oDCOCX_Exontrol1:ScrollBySingleLine := false
oDCOCX_Exontrol1:Columns:Add("C1")
oDCOCX_Exontrol1:Columns:Add("C2")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Cell 1")
var_Items:[CellCaption,h,1] := "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
var_Items:[CellSingleLine,h,1] := exCaptionWordWrap
h := var_Items:AddItem(nil)
var_Items:[ItemDivider,h] := 0
var_Items:[ItemDividerLine,h] := DoubleDotLine
var_Items:[ItemDividerLineAlignment,h] := DividerCenter
var_Items:[ItemHeight,h] := 6
var_Items:[SelectableItem,h] := false
h := var_Items:AddItem("Cell 2")
var_Items:[CellCaption,h,1] := "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
var_Items:[CellSingleLine,h,1] := exCaptionWordWrap
|
|
359
|
How can I change the background color or the visual appearance using ebn for a particular column
local var_Columns as IColumns
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Column 1")
IColumn{var_Columns:Add("Column 2")}:[Def,exHeaderBackColor] := 16777216
IColumn{var_Columns:Add("Column 3")}:[Def,exHeaderBackColor] := 16777471
var_Columns:Add("Column 4")
|
|
407
|
How can I change the background color for the filter field in the bottom part of the drop down portion
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:FilterForVisible := true
oDCOCX_Exontrol1:FilterForBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:IntegralHeight := true
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item 1")
var_Items:AddItem("Item 2")
var_Items:AddItem("Item 3")
var_Items:AddItem("Item 4")
var_Items:AddItem("Item 5")
oDCOCX_Exontrol1:EndUpdate()
|
|
343
|
How can I change the background color for edit controls
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BackColorEdit := RGB(255,0,0)
oDCOCX_Exontrol1:IntegralHeight := true
oDCOCX_Exontrol1:LinesAtRoot := exGroupLinesAtRoot
oDCOCX_Exontrol1:TreeColumnIndex := 1
oDCOCX_Exontrol1:Columns:Add("Column 1")
oDCOCX_Exontrol1:Columns:Add("Column 2")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1.1")
var_Items:[CellCaption,h,1] := "Root 1.2"
var_Items:[CellCaption,var_Items:InsertItem(h,nil,"Child 1.1"),1] := "Child 1.2"
var_Items:[CellCaption,var_Items:InsertItem(h,nil,"Child 2.1"),1] := "Child 2.2"
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2.1")
var_Items:[CellCaption,h,1] := "Root 2.2"
var_Items:[CellCaption,var_Items:InsertItem(h,nil,"Child 1.1"),1] := "Child 1.2"
oDCOCX_Exontrol1:[Select,0] := "Root 1.1"
|
|
216
|
How can I change the background color for all cells in the column
local var_ConditionalFormat as IConditionalFormat
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("1",nil)
var_ConditionalFormat:BackColor := RGB(255,0,0)
var_ConditionalFormat:ApplyTo := exFormatToColumns
oDCOCX_Exontrol1:Columns:Add("Column")
oDCOCX_Exontrol1:Items:AddItem(0)
oDCOCX_Exontrol1:Items:AddItem(1)
|
|
358
|
How can I change the background color for a particular column
local var_Columns as IColumns
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Column 1")
IColumn{var_Columns:Add("Column 2")}:[Def,exHeaderBackColor] := 8439039
var_Columns:Add("Column 3")
|
|
423
|
How can I change the background color for a particular column
local var_Columns as IColumns
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Column 1")
IColumn{var_Columns:Add("Column 2")}:[Def,exHeaderBackColor] := 8439039
var_Columns:Add("Column 3")
|
|
408
|
How can I change the background appearance (ebn) for the filter field in the bottom part of the drop down portion
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:FilterForVisible := true
oDCOCX_Exontrol1:FilterForBackColor := 0x1000000
oDCOCX_Exontrol1:IntegralHeight := true
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item 1")
var_Items:AddItem("Item 2")
var_Items:AddItem("Item 3")
var_Items:AddItem("Item 4")
var_Items:AddItem("Item 5")
oDCOCX_Exontrol1:EndUpdate()
|
|
50
|
How can I change the "IsChecked/IsUnchecked" caption in the control's filter bar, when I filter for checked items
local var_Column as IColumn
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Column")}
var_Column:DisplayFilterButton := true
var_Column:FilterType := exCheck
var_Column:Filter := AsString(0)
oDCOCX_Exontrol1:[Description,exFilterBarIsChecked] := "Check_On"
oDCOCX_Exontrol1:[Description,exFilterBarIsUnchecked] := "Check_Off"
oDCOCX_Exontrol1:ApplyFilter()
|
|
35
|
How can I change the "Filter For" caption in the column's drop down filter window
IColumn{oDCOCX_Exontrol1:Columns:Add("Column")}:DisplayFilterButton := true
oDCOCX_Exontrol1:[Description,exFilterBarFilterForCaption] := "new caption"
|
|
49
|
How can I change the "Checked" caption in the drop down filter window, when I filter for checked items
local var_Column as IColumn
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Column")}
var_Column:DisplayFilterButton := true
var_Column:FilterType := exCheck
oDCOCX_Exontrol1:[Description,exFilterBarChecked] := "with check on"
oDCOCX_Exontrol1:[Description,exFilterBarUnchecked] := "with check off"
|
|
231
|
How can I change at runtime the parent of the item
local var_Items as IItems
local hC,hP as USUAL
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
hP := var_Items:AddItem("Root")
hC := var_Items:AddItem("Child")
var_Items:SetParent(hC,hP)
|
|
57
|
How can I can I select programmatically "Blanks/NonBlanks" option in the column's drop down filter
local var_Column as IColumn
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Column")}
var_Column:DisplayFilterButton := true
var_Column:FilterType := exBlanks
oDCOCX_Exontrol1:ApplyFilter()
|
|
61
|
How can I can I programmatically filter the checked items
local var_Column as IColumn
local var_Items as IItems
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Column")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:DisplayFilterButton := true
var_Column:FilterType := exCheck
var_Column:Filter := AsString(0)
oDCOCX_Exontrol1:Items:AddItem(0)
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellState,var_Items:AddItem(1),0] := 1
oDCOCX_Exontrol1:Items:AddItem(2)
oDCOCX_Exontrol1:ApplyFilter()
|
|
62
|
How can I can I programmatically filter for items with a specified icon assigned
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Column")}
var_Column:DisplayFilterButton := true
var_Column:FilterType := exImage
var_Column:Filter := AsString(1)
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellImage,var_Items:AddItem("Image 1"),0] := 1
var_Items:[CellImage,var_Items:AddItem("Image 1"),0] := 1
var_Items:[CellImage,var_Items:AddItem("Image 2"),0] := 2
var_Items:[CellImage,var_Items:AddItem("Image 3"),0] := 3
oDCOCX_Exontrol1:ApplyFilter()
|
|
60
|
How can I can I filter programmatically the items based on some numerichal rules
local var_Column as IColumn
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Column")}
var_Column:DisplayFilterButton := true
var_Column:FilterType := exNumeric
var_Column:Filter := "> 0 <= 1"
oDCOCX_Exontrol1:Items:AddItem(0)
oDCOCX_Exontrol1:Items:AddItem(1)
oDCOCX_Exontrol1:Items:AddItem(2)
oDCOCX_Exontrol1:ApplyFilter()
|
|
59
|
How can I can I filter programmatically the items based on a range/interval of dates
local var_Column as IColumn
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Column")}
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterDate := true
var_Column:FilterType := exDate
var_Column:Filter := "1/1/2001 to 1/1/2002"
oDCOCX_Exontrol1:Items:AddItem("1/1/2001")
oDCOCX_Exontrol1:Items:AddItem("2/1/2002")
oDCOCX_Exontrol1:ApplyFilter()
|
|
58
|
How can I can I filter programmatically given a specified pattern using wild characters like * or
local var_Column as IColumn
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Column")}
var_Column:DisplayFilterButton := true
var_Column:FilterType := exPattern
var_Column:Filter := "0*"
oDCOCX_Exontrol1:Items:AddItem(0)
oDCOCX_Exontrol1:Items:AddItem("00")
oDCOCX_Exontrol1:Items:AddItem(1)
oDCOCX_Exontrol1:Items:AddItem("11")
oDCOCX_Exontrol1:ApplyFilter()
|
|
555
|
How can I build a "virtual" tree using your control
METHOD OCX_Exontrol1BeforeExpandItem(Item, Cancel) CLASS MainDialog
// BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
local var_Items as IItems
var_Items := oDCOCX_Exontrol1:Items
var_Items:[ItemHasChildren,var_Items:InsertItem(Item,nil,"new")] := true
RETURN NIL
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Style := DropDown
oDCOCX_Exontrol1:Columns:Add("Def")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item 1")
var_Items:[ItemHasChildren,var_Items:AddItem("Item 2")] := true
var_Items:AddItem("Item 3")
oDCOCX_Exontrol1:Value := "Item 2"
oDCOCX_Exontrol1:EndUpdate()
|
|
363
|
How can I bold the items that contains data or those who displays empty strings
local var_Items as IItems
local h,hC as USUAL
oDCOCX_Exontrol1:ConditionalFormats:Add("not len(%1)=0",nil):Bold := true
oDCOCX_Exontrol1:Columns:Add("C1")
oDCOCX_Exontrol1:Columns:Add("C2")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
hC := var_Items:InsertItem(h,nil,"Child 2")
var_Items:[CellCaption,hC,1] := "1"
var_Items:InsertItem(h,nil,"Child 3")
var_Items:[ExpandItem,h] := true
|
|
211
|
How can I bold the entire column
local var_ConditionalFormat as IConditionalFormat
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("1",nil)
var_ConditionalFormat:Bold := true
var_ConditionalFormat:ApplyTo := exFormatToColumns
oDCOCX_Exontrol1:Columns:Add("Column")
oDCOCX_Exontrol1:Items:AddItem(0)
oDCOCX_Exontrol1:Items:AddItem(1)
|
|
25
|
How can I bold only a portion of the column's header
IColumn{oDCOCX_Exontrol1:Columns:Add("Column 1")}:HTMLCaption := "<b>Col</b>umn 1"
|
|
269
|
How can I associate an extra data to a cell
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("C1")
oDCOCX_Exontrol1:Columns:Add("C2")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Cell 1")
var_Items:[CellCaption,h,1] := "Cell 2"
var_Items:[CellData,h,1] := "your extra data"
|
|
280
|
How can I assign multiple icons/pictures to a cell
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root <img>1</img> 1, <img>2</img>, ... and so on ")
var_Items:[CellCaptionFormat,h,0] := exHTML
|
|
279
|
How can I assign multiple icons/pictures to a cell
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:[CellImages,h,0] := "1,2,3"
|
|
282
|
How can I assign multiple icon/picture to a cell
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:[HTMLPicture,"p1"] := "c:\exontrol\images\zipdisk.gif"
oDCOCX_Exontrol1:[HTMLPicture,"p2"] := "c:\exontrol\images\auction.gif"
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("text <img>p1</img> another picture <img>p2</img> and so on")
var_Items:[CellCaptionFormat,h,0] := exHTML
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
var_Items:[CellPicture,h,0] := oDCOCX_Exontrol1:ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
var_Items:[ItemHeight,h] := 48
var_Items:AddItem("Root 2")
|
|
14
|
How can I assign checkboxes for the entire column
IColumn{oDCOCX_Exontrol1:Columns:Add("Column 1")}:[Def,exCellHasCheckBox] := true
oDCOCX_Exontrol1:Items:AddItem(0)
oDCOCX_Exontrol1:Items:AddItem(1)
oDCOCX_Exontrol1:Items:AddItem(2)
|
|
281
|
How can I assign an icon/picture to a cell
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
var_Items:[CellPicture,h,0] := oDCOCX_Exontrol1:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
var_Items:[ItemHeight,h] := 48
var_Items:AddItem("Root 2")
|
|
278
|
How can I assign an icon/picture to a cell
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:[CellImage,h,0] := 1
var_Items:[CellImage,var_Items:InsertItem(h,nil,"Child 1"),0] := 2
var_Items:[CellImage,var_Items:InsertItem(h,nil,"Child 2"),0] := 3
var_Items:[ExpandItem,h] := true
|
|
270
|
How can I assign a tooltip to a cell
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("C1")
oDCOCX_Exontrol1:Columns:Add("C2")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Cell 1")
var_Items:[CellCaption,h,1] := "tooltip"
var_Items:[CellToolTip,h,1] := "This is bit of text that's shown when the user hovers the cell"
|
|
274
|
How can I assign a radio button to a cell
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SelBackColor := RGB(255,255,128)
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
oDCOCX_Exontrol1:Columns:Add("C1")
oDCOCX_Exontrol1:Columns:Add("C2")
oDCOCX_Exontrol1:Columns:Add("C3")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Cell 1")
var_Items:[CellCaption,h,1] := "Radio 1"
var_Items:[CellHasRadioButton,h,1] := true
var_Items:[CellRadioGroup,h,1] := 1234
var_Items:[CellCaption,h,2] := "Radio 2"
var_Items:[CellHasRadioButton,h,2] := true
var_Items:[CellRadioGroup,h,2] := 1234
var_Items:[CellState,h,1] := 1
|
|
16
|
How can I assign a different background color for the entire column
oDCOCX_Exontrol1:MarkSearchColumn := false
IColumn{oDCOCX_Exontrol1:Columns:Add("Column 1")}:[Def,exCellBackColor] := 255
oDCOCX_Exontrol1:Columns:Add("Column 2")
oDCOCX_Exontrol1:Items:AddItem(0)
oDCOCX_Exontrol1:Items:AddItem(1)
oDCOCX_Exontrol1:Items:AddItem(2)
|
|
272
|
How can I assign a checkbox to a cell
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("C1")
oDCOCX_Exontrol1:Columns:Add("C2")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Cell 1")
var_Items:[CellCaption,h,1] := "Check Box"
var_Items:[CellHasCheckBox,h,1] := true
|
|
15
|
How can I assign a check box for a cell
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Column 1")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(0)
var_Items:[CellHasCheckBox,var_Items:AddItem(1),0] := true
var_Items:AddItem(2)
|
|
30
|
How can I apply an strikeout font only a portion of the column's header
IColumn{oDCOCX_Exontrol1:Columns:Add("Column 1")}:HTMLCaption := "<s>Col</s>umn 1"
|
|
27
|
How can I apply an italic font only a portion of the column's header
IColumn{oDCOCX_Exontrol1:Columns:Add("Column 1")}:HTMLCaption := "<i>Col</i>umn 1"
|
|
353
|
How can I align the text/caption on the scroll bar
oDCOCX_Exontrol1:[ScrollPartCaption,exHScroll,exLowerBackPart] := "left"
oDCOCX_Exontrol1:[ScrollPartCaptionAlignment,exHScroll,exLowerBackPart] := LeftAlignment
oDCOCX_Exontrol1:[ScrollPartCaption,exHScroll,exUpperBackPart] := "right"
oDCOCX_Exontrol1:[ScrollPartCaptionAlignment,exHScroll,exUpperBackPart] := RightAlignment
oDCOCX_Exontrol1:ColumnAutoResize := false
oDCOCX_Exontrol1:Columns:Add(AsString(1))
oDCOCX_Exontrol1:Columns:Add(AsString(2))
oDCOCX_Exontrol1:Columns:Add(AsString(3))
oDCOCX_Exontrol1:Columns:Add(AsString(4))
oDCOCX_Exontrol1:Columns:Add(AsString(5))
oDCOCX_Exontrol1:Columns:Add(AsString(6))
|
|
183
|
How can I align the icon in the column's header in the center
local var_Column as IColumn
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("")}
var_Column:HeaderImage := 1
var_Column:HeaderImageAlignment := CenterAlignment
|
|
177
|
How can I align the column to the right, and its caption too
local var_Column as IColumn
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Column")}
var_Column:Alignment := RightAlignment
var_Column:HeaderAlignment := RightAlignment
oDCOCX_Exontrol1:Items:AddItem(0)
oDCOCX_Exontrol1:Items:AddItem(1)
|
|
176
|
How can I align the column to the right
IColumn{oDCOCX_Exontrol1:Columns:Add("Column")}:Alignment := RightAlignment
oDCOCX_Exontrol1:Items:AddItem(0)
oDCOCX_Exontrol1:Items:AddItem(1)
|
|
304
|
How can I align the cell to the left, center or to the right
local var_Items as IItems
oDCOCX_Exontrol1:TreeColumnIndex := -1
oDCOCX_Exontrol1:DrawGridLines := exRowLines
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellHAlignment,var_Items:AddItem("left"),0] := LeftAlignment
var_Items:[CellHAlignment,var_Items:AddItem("center"),0] := CenterAlignment
var_Items:[CellHAlignment,var_Items:AddItem("right"),0] := RightAlignment
|
|
135
|
How can I add several columns to control's sort bar
oDCOCX_Exontrol1:SortBarVisible := true
oDCOCX_Exontrol1:SortBarColumnWidth := 48
IColumn{oDCOCX_Exontrol1:Columns:Add("C1")}:SortOrder := SortAscending
IColumn{oDCOCX_Exontrol1:Columns:Add("C2")}:SortOrder := SortDescending
|
|
313
|
How can I add separator - dividers items
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:TreeColumnIndex := -1
oDCOCX_Exontrol1:ScrollBySingleLine := false
oDCOCX_Exontrol1:Columns:Add("C1")
oDCOCX_Exontrol1:Columns:Add("C2")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Cell 1")
var_Items:[CellCaption,h,1] := "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
var_Items:[CellSingleLine,h,1] := exCaptionWordWrap
h := var_Items:AddItem(nil)
var_Items:[ItemDivider,h] := 0
var_Items:[ItemDividerLine,h] := DoubleDotLine
var_Items:[ItemDividerLineAlignment,h] := DividerCenter
var_Items:[ItemHeight,h] := 6
var_Items:[SelectableItem,h] := false
h := var_Items:AddItem("Cell 2")
var_Items:[CellCaption,h,1] := "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
var_Items:[CellSingleLine,h,1] := exCaptionWordWrap
|
|
226
|
How can I add or insert child items
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Columns:Add("C1")
oDCOCX_Exontrol1:Columns:Add("C2")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Cell 1")
var_Items:[CellCaption,h,1] := "Cell 2"
var_Items:[CellCaption,var_Items:InsertItem(h,nil,"Cell 3"),1] := "Cell 4"
var_Items:[CellCaption,var_Items:InsertItem(h,nil,"Cell 5"),1] := "Cell 6"
var_Items:[ExpandItem,h] := true
|
|
223
|
How can I add or insert an item
oDCOCX_Exontrol1:Columns:Add("Default")
oDCOCX_Exontrol1:Items:AddItem("new item")
|
|
224
|
How can I add or insert an item
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("C1")
oDCOCX_Exontrol1:Columns:Add("C2")
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellCaption,var_Items:AddItem("Cell 1"),1] := "Cell 2"
h := var_Items:AddItem("Cell 3")
var_Items:[CellCaption,h,1] := "Cell 4"
|
|
225
|
How can I add or insert a child item
local var_Items as IItems
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
var_Items:InsertItem(var_Items:AddItem("root"),nil,"child")
|
|
464
|
How can I add or change the padding (spaces) for captions in the control's header
local var_Column as IColumn
oDCOCX_Exontrol1:BeginUpdate()
IColumn{oDCOCX_Exontrol1:Columns:Add("Padding-Left")}:[Def,exHeaderPaddingLeft] := 18
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Padding-Right")}
var_Column:[Def,exHeaderPaddingRight] := 18
var_Column:HeaderAlignment := RightAlignment
oDCOCX_Exontrol1:EndUpdate()
|
|
3
|
How can I add multiple columns
local var_Columns as IColumns
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Column 1")
var_Columns:Add("Column 2")
|
|
465
|
How can I add a vertical padding
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DrawGridLines := exAllLines
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Padding")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:[Def,exCellSingleLine] := false
var_Column:[Def,exCellPaddingLeft] := 6
var_Column:[Def,exCellPaddingRight] := 6
var_Column:[Def,exCellPaddingTop] := 6
var_Column:[Def,exCellPaddingBottom] := 6
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("padding")
var_Items:AddItem("padding")
oDCOCX_Exontrol1:EndUpdate()
|
|
1
|
How can I add a new column
oDCOCX_Exontrol1:Columns:Add("ColumnName")
|
|
454
|
How can I add a horizontal scroll bar
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ScrollBySingleLine := true
oDCOCX_Exontrol1:ColumnAutoResize := false
oDCOCX_Exontrol1:BackColorAlternate := RGB(240,240,240)
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Default")}
var_Column:Width := 512
var_Column:[Def,exCellSingleLine] := false
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Exontrol is devoted to create innovative user interface components for Windows applications, on COM or .NET platforms, since 1999. " + CHR(34) + "eXontrol" + CHR(34) + " comes from e(s)pecial (c)ontrol, where sc makes the X. We are a vendor not a reseller, and this is the single site where you can try or buy our products. If you are tired of looking for " + CHR(34) + "powerful" + CHR(34) + " components now it's time to show you real components. No registration required, no nag screens, no limitations, unlimited evaluation time.")
var_Items:AddItem("A combo box is a commonly-used GUI tool. It is a combination of a drop-down list or list box and a single-line textbox, allowing the user either to type a value directly into the control or choose from the list of existing options.")
oDCOCX_Exontrol1:EndUpdate()
|
|
221
|
How can I access the properties of a column
oDCOCX_Exontrol1:Columns:Add("A")
oDCOCX_Exontrol1:Columns:[Item,"A"]:HeaderBold := true
|
|
595
|
Highlight the parent items
local var_Columns as IColumns
local var_Items as IItems
local h,hR as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ConditionalFormats:Add("%CC0",nil):ForeColor := RGB(255,0,0)
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:HeaderHeight := 24
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Item")}:Width := 16
var_Columns:Add("Desc")
var_Items := oDCOCX_Exontrol1:Items
hR := var_Items:AddItem("Root")
var_Items:[CellCaption,hR,1] := "The root directory /"
h := var_Items:InsertItem(hR,nil,"Home")
var_Items:[CellCaption,h,1] := "The home directory with user directories Alice and Bob"
var_Items:InsertItem(h,nil,"Alice")
var_Items:InsertItem(h,nil,"Bob")
var_Items:[ExpandItem,h] := true
h := var_Items:InsertItem(hR,nil,"Etc")
var_Items:[CellCaption,h,1] := "The etc directory with one configuration file"
h := var_Items:InsertItem(h,nil,"nginx.conf")
var_Items:[CellCaption,var_Items:InsertItem(hR,nil,"Var"),1] := "The var directory"
var_Items:[ExpandItem,hR] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
596
|
Highlight the leaf items
local var_Columns as IColumns
local var_Items as IItems
local h,hR as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ConditionalFormats:Add("%CC0=0",nil):ForeColor := RGB(128,128,128)
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:HeaderHeight := 24
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Item")}:Width := 16
var_Columns:Add("Desc")
var_Items := oDCOCX_Exontrol1:Items
hR := var_Items:AddItem("Root")
var_Items:[CellCaption,hR,1] := "The root directory /"
h := var_Items:InsertItem(hR,nil,"Home")
var_Items:[CellCaption,h,1] := "The home directory with user directories Alice and Bob"
var_Items:InsertItem(h,nil,"Alice")
var_Items:InsertItem(h,nil,"Bob")
var_Items:[ExpandItem,h] := true
h := var_Items:InsertItem(hR,nil,"Etc")
var_Items:[CellCaption,h,1] := "The etc directory with one configuration file"
h := var_Items:InsertItem(h,nil,"nginx.conf")
var_Items:[CellCaption,var_Items:InsertItem(hR,nil,"Var"),1] := "The var directory"
var_Items:[ExpandItem,hR] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
594
|
Highlight the item being expanded or collapsed
local var_Columns as IColumns
local var_Items as IItems
local h,hR as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ConditionalFormats:Add("%CX0",nil):Bold := true
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:HeaderHeight := 24
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Item")}:Width := 16
var_Columns:Add("Desc")
var_Items := oDCOCX_Exontrol1:Items
hR := var_Items:AddItem("Root")
var_Items:[CellCaption,hR,1] := "The root directory /"
h := var_Items:InsertItem(hR,nil,"Home")
var_Items:[CellCaption,h,1] := "The home directory with user directories Alice and Bob"
var_Items:InsertItem(h,nil,"Alice")
var_Items:InsertItem(h,nil,"Bob")
var_Items:[ExpandItem,h] := true
h := var_Items:InsertItem(hR,nil,"Etc")
var_Items:[CellCaption,h,1] := "The etc directory with one configuration file"
h := var_Items:InsertItem(h,nil,"nginx.conf")
var_Items:[CellCaption,var_Items:InsertItem(hR,nil,"Var"),1] := "The var directory"
var_Items:[ExpandItem,hR] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
589
|
Force hover-all feature
oDCOCX_Exontrol1:[Background,exScrollHoverAll] := -1
|
|
515
|
FilterBarCaption Predefined Keywords
METHOD OCX_Exontrol1AfterExpandItem(Item) CLASS MainDialog
// AfterExpandItem event - Fired after an item is expanded (collapsed).
oDCOCX_Exontrol1:Refresh()
RETURN NIL
local var_Column,var_Column1,var_Column2 as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}:DisplayFilterButton := true
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Check")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := false
var_Column:FilterType := exCheck
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos")}
var_Column1:AllowSizing := false
var_Column1:AllowSort := false
var_Column1:Width := 32
var_Column1:FormatColumn := "1 apos ``"
var_Column1:Position := 0
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item A")
h := var_Items:AddItem("Item B")
var_Items:[CellState,var_Items:InsertItem(h,nil,"Sub-Item B1"),1] := 1
var_Items:InsertItem(h,nil,"Sub-Item B2")
var_Items:[ExpandItem,h] := true
var_Items:AddItem("Item C")
oDCOCX_Exontrol1:FilterInclude := exItemsWithChilds
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
oDCOCX_Exontrol1:FilterBarFont := oDCOCX_Exontrol1:Font
oDCOCX_Exontrol1:FilterBarCaption := "`<fgcolor=0000FF><i>value/current</i></fgcolor>: <fgcolor=808080>` + value + `</fgcolor>` + `<br><fgcolor=0000FF><i>available</i></fgcolor>: ` + available + `<br><fgcolor=0000FF><i>allui</i></fgcolor>: ` + allui + `<br><fgcolor=0000FF><i>all</i></fgcolor>: ` + all + `<br><fgcolor=0000FF><i>itemcount</i></fgcolor>: <fgcolor=808080>` + itemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>visibleitemcount</i></fgcolor>: <fgcolor=808080>` + visibleitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>matchitemcount</i></fgcolor>: <fgcolor=808080>` + matchitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>promptpattern</i></fgcolor>: <fgcolor=808080>` + promptpattern + `</fgcolor>`+ `<br><fgcolor=0000FF><i>leafitemcount</i></fgcolor>: <fgcolor=808080>` + leafitemcount + `</fgcolor>`"
oDCOCX_Exontrol1:FilterBarPromptPattern := "B"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarCaptionVisible | exFilterBarVisible | exFilterBarPromptVisible
var_Column2 := oDCOCX_Exontrol1:Columns:[Item,0]
var_Column2:FilterType := exFilter
var_Column2:Filter := "Item A|Item B"
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
|